home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / ungepackt / 8_95 / apd-8-95-2 / arexx kurs / listings / listing1 next >
Text File  |  1996-01-25  |  2KB  |  33 lines
  1. /* Repeat ---------------------------------------------------- */
  2.  
  3. /* Öffnen einer Ein/Ausgabekonsole. */
  4. call open("Console","CON:0/0/400/100/Repeat/WAIT/CLOSE/SMART")
  5.  
  6. /* Eingabeaufforderung ausgeben.    */
  7. call writeln("Console","Bitte geben Sie etwas ein (Ende = exit)")
  8.  
  9. input = ""                   /* Eingabevariable initialisieren */
  10. call open("In","T:Input",W)     /* Datei zum Schreiben öffnen  */
  11. do until input = "exit"         /* bis "exit" eingegeben wird  */
  12.    call writech("Console","*>") /* Eingabeprompt ausgeben      */
  13.    input = readln("Console")    /* Benutzereingabe einlesen    */
  14.    call writeln("In",input)     /* Eingabe speichern           */
  15.    call writeln("Console",">>>Gespeichert<<<")      /* melden! */
  16. end                             /* Zurück zum Schleifenanfang  */
  17. call close("In")                /* Datei schließen             */
  18.  
  19. call writeln("Console","Sie haben eingegeben:") /* Melden      */
  20.  
  21. output = ""                  /* Ausgabevariable initialisieren */
  22. call open("Out","T:Input",R)    /* Datei zum Lesen öffnen      */
  23. do while ~eof("Out")            /* Solange Ende nicht erreicht */
  24.    output = readln("Out")       /* Zeile aus Datei einlesen    */
  25.    call writeln("Console",output)  /* Zeile ausgeben           */
  26. end                             /* Zurück zum Schleifenanfang  */
  27. call close("Out")               /* Datei schließen             */
  28.  
  29. /* Nicht mehr benötigte Datei löschen. */
  30. address command "Delete >NIL: t:Input"
  31.  
  32. exit                            /* Programmende */
  33.